home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / pasprog.EXE / K_B_YAZ.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-10-17  |  1.3 KB  |  39 lines
  1. var Dosya:TEXT;
  2.     Dosya1:TEXT;
  3.     X:char;Y:byte;
  4.     Giris:String[64];
  5.     Cikis:String[64];
  6.  
  7. Procedure KucukHarfleYaz;
  8. Begin Write('Küçük harfe cevrilecek : ');readln(giris);
  9.       Write('         Hedef Program : ');readln(cikis);
  10.       Assign(dosya,giris);assign(dosya1,cikis);Reset(dosya);ReWrite(Dosya1);
  11.       while not eof(dosya) do
  12.             begin while not eoln(dosya) do
  13.                   begin read(dosya,x);y:=ord(x);
  14.                         if (y>=65)and(y<=90) then y:=y+32;
  15.                         x:=chr(y);write(dosya1,x);
  16.                   END;
  17.             readln(dosya);writeln(dosya1);
  18.             END;
  19.             close(dosya);close(dosya1);
  20. end;
  21. Procedure BuyukHarfleYaz;
  22. Begin Write('Büyük harfe cevrilecek : ');readln(giris);
  23.       Write('         Hedef Program : ');readln(cikis);
  24.       Assign(dosya,giris);assign(dosya1,cikis);Reset(dosya);ReWrite(Dosya1);
  25.       while not eof(dosya) do
  26.             begin while not eoln(dosya) do
  27.                   begin read(dosya,x);y:=ord(x);
  28.                         if (y>=97)and(y<=122) then y:=y-32;
  29.                         x:=chr(y);write(dosya1,x);
  30.                   END;
  31.             readln(dosya);writeln(dosya1);
  32.             END;
  33.             close(dosya);close(dosya1);
  34. end;
  35.  
  36. Begin
  37.     KucukHarfleYaz;
  38. end.
  39.